RB09 SYSTEM P|AGNUSTIC 


SRC 

, title HB109 SYSTEM DIAGNOSTIC 
SMR 

/PLEASE REPORT ANY PROBLEMS TO 
/ STANLEY My ROSE 

/ laboratory of computer science 

/ MASSACHUSETTS GENERAL HOSPITAL 
/ 32 FRUIT STREET 
/ BOSTQNf MASSACHUSETTS 02U4 
/ (6X7) 726*3937 
/ 

/USES EAE , BUT SAVES MO, STEP COUNTER 
/ 

/ERRORS? 

/ X? HARDWARE ERROR, LEGITIMATE BCD ADDRESS 
/ STATUS REGISTER 

/ DISK SIDE (0 OR X) 

/ track ADDRESS'! In OCTAL) 

/ SECTOR ADDRESS UN OCTAL) 

/ 

/ 2? HARDWARE ERROR, ILLEGAL BCD ADDRESS 
/ STATUS REGISTER 

/ address loaded 

/ 

/ 3? MORE TYPE 1 OR 2 ERRORS THAN SPECIFIED BY CUOOSW+X3 
/ WILL not RE*TRY THIS BLOCK 

/ 

/ 4? compare error 

/ DISK SIDE" 

/ track address (octal) 

/ SECTOR ADDRESS (OCTAL) 

/ CORE ADDRESS 

/ OFFSET 

/ EXPECTED 

/ RECEIVED 

/ 

/ !S? MORE ERRORS/BLOCK THAN SPECIFIED BY CUOOSW + 23 
/ WILL RE-READ AND TRY AGAIN 
/ 

/ 6? retried as many TIMES AS SPECIFIED BY CUOPSW+3] 

/ WILL GO ON TO NEXT BLOCK 

/ 

/ 7? illegal API ENTRY, NO FLAG SET 
/ STATUS REGISTER 

/ lORS 

.EJECT 


RB09 


70770R 

6^1000 


703*i04 

70334^ 

705^301 

705^04 

705^X2 


SRC RB09 SY5TP UIAGNUSTIC 

/ 10? AFTER ERRORS 7i 10 OR 11 THE PROGRAM SHOULD RElNIALl^E AND RESTART 
/ HOWEVER IT reentered ILLEGALLY 

/ STATUS REGISTER 

/ lORS 

/ 

7 11? INTERRUPT ENTRY AFTER CLEARING STATUS REGISTER AND STARTING 
/ NO NEW 10 OPERATION 

/ STATUS REGISTER 

/ lORS 

/ 

A £EM=707702 

A EBA=707764 /FOR PDP9 OR 15 

/ 

A CLAC=641000 

/ 

/ 

/ 

A P8K=/00304 

A OBR=703344 

A SPI?705501 

A ISA=705504 

A RPL=/0S512 

, EJECT 


page: 3 


RB0y 

SRC 

RB09 

SYSTEM PI AGNOSTIC 







sEBREP 


00000 

R 

600007 

A 


f 

UOPSW 

600007 

/IO,API CHANNEU 7 (BIT 2 SET TESTS MAINTt) 
/(BIT 3 set is TEST WITH ONLY 6A WORD TESTS) 

00003, 

R 

000002 

A 


HRPHAX 

2 

/MAX, HUMBER QF RETRIES DIM HARDWARE ERRORS 

00002 

R 

0 0 0 0 0 S> 

A 


B^KCMP 

5 

/maximum mum, of REPORTED COMP, ERRORS / BL,OCK 

00003 

R 

0 0 0001 

A 


cmpmax 

1 

/MAXIMUM NUM, OF REREADS ON COMP, ERRORS 

00004 

R 

0 0 0 0 / 6 

R 



,PSA RBSERV 

/NORMAL ENTRY ADDRESS 

0000^3 

R 

000032 

R 



gOSA RBINIT 

/initialize ADDRESS 

00E506 

R 

220260 

A 



iSIXBT ”RB09 

!l 

00007 

R 

714040 

A 





000X0 

R 

000004 

A 


SWITCH 

4 

/HOLD ON switch ),5 

000XX 

R 


A 



.BPOCK 7 


00020 

R 

C3 0 0 0 0 0 

A 


SYSCOM 

0 

/SYSTEM COMMUNICATION WORD 

0002X 

R 

000000 

A 


ERWC 

0 

/TWO'S COMPLEMENT NUMBER OF WORDS TO PRINT 

00022 

R 

000000 

A 


ERCOPE 

0 

jREPT 7 

/FIRST WORD OF MESSAGE 

00023 

R 

900000 

A 



0 

/REST OF PRINT BUFFER 

00024 

R 

000000 

A 

4R 




0002£i 

R 

000000 

A 

i^R 




00026 

R 

000000 

A 

ttR 




00027 

R 

000000 

A 





00030 

R 

000000 

A 





00031 

R 

000000 

A 

<»R 


, EJECT 
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R809 SRC 


RB09 SYSTEM UIAGNQSTIC 


o 

00032 

R 

740040 

A 

RBINIT 

XX 


/INITALI2E AND START UP 


00033 

R 

707764 

A 


EBA 




00034 

R 

707702 

A 


EEM 


/9-«l5 COMPATIBLE ALTHOUGH NO 15'S WITH RBli)9! 

o 

00035 

R 

140021 

R 


DHM 

ERWC 



00036 

R 

140022 

R 


D2M 

ERCQPE 



00037 

R 

201754 

R 


LAC 

(BUFF 


o 

00040 

R 

040752 

R 


DAC 

BUFFER 

/MOVING buffer INITIAL LOCATION 


00041 

R 

777700 

A 


LAW 

trl00 



00042 

R 

040570 

R 


DAC 

DSKWC 


o 

00043 

R 

200000 

R 


LAC 

UODSW 

/CHECK IF maintenance SECTORS 


00044 

R 

501755 

R 


AMP 

(100000 

/SHOULD BE USED (BIT 2) 


0004 5 

R 

741200 

A 


SNA 



o 

00046 

R 

600057 

R 


JMP 

RBI Nil 



00047 

R 

201756 

R 


LAC 

(120 

/YES 


0005 0 

R 

040/37 

R 


DAC 

PRIME 


o 

00051 

R 

201757 

R 


LAC 

(200 



00052 

R 

049/20 

R 


DAC 

MAITSC 



00053 

R 

777766 

A 


LAW 

^12 


o 

00054 

R 

040750 

R 


DAC 

RUNNMB 



00055 

R 

140751 

R 


D2M 

START 

/MUST START ON 0 FOR MAINTENANCE 


00056 

R 

600064 

R 


JMP 

RBINT2 


o 





/ 





00057 

R 

140720 

R 

RBINTl 

DHM 

MAITSC 



00060 

R 

201760 

R 


LAC 

(127 

/INCREMENT TRACK BY liSECTOR BY 7 

o 

00061 

R 

040737 

R 


DAC 

PRIME 



00062 

R 

7777/5 

A 


LAW 

3 



00063 

R 

040750 

R 


DAC 

rOnnmb 

/ONLY USED when »STAY IN 64 WORO/TRANSFER ’ MODE 

o 





/ 





00064 

R 

777773 

A 

RBINT2 

LAW 

«5 



00065 

R 

040-020 

R 


DAC 

SYSCOM 

/NEXT ENTRY through RBSERV 

o 

00066 

R 

201761 

R 


LAC 

(WRITE 



00067 

R 

040174 

R 


DAC 

EXIT 



00070 

R 

040745^ 

R 


DAC 

ARTFLG 

/NEXT ENTRY ARTIFICIAL 

o 

00071 

R 

200751 

R 


LAC 

START 



00072 

R 

040740 

R 


DAC 

BLOCK 

/initial block 


00073 

R 

703344 

A 


DBR 



o 

000/4 

R 

400075 

R 


XCT 


/NEC, ON 9 


00075 

R 

620032 

R 


JHP« 

■ RBINIT 



.eject 


G 


o 


PAGE 


RB0V 


O 


SRC 


RB09 SYSTEM OJAGNPSTIC 


o 

00076 

R 

740040 

A 

RBSERV 

XX 

/NORMAL entry PQINTR 


00077 

R 

707764 

A 


EBA 


o 

00100 

R 

707702 

A 


EEM 

/FOR ?^},5 

00101 

F? 

040730 

R 

/ 

OAC ACSAVE 



00102 

R 

641002 

A 


LACQ 


o 

00103 

R 

040733 

R 


DAC MQSAVE 



00104 

R' 

641001 

A 


EACS 


o 

00106 

R 

040732 

R 


DAC SCSAVE 


00106 

R 

201762 

R 


UAC (400000 



00107 

R 

705601 

A 


SPI 


o 

00110 

R 

600122 

R 


JMP APIOFF 

/NON=API ENTRY 

00111 

R 

400722 

R 


XCT DSSF 



00112 

R 

600137 

R 


JMP ERROR/ 

/illegal API 

o 

00113 

R 

400724 


RBSERl 

XCT DSRS 



00114 

R 

040743 

R 


DAC STAT 



00116 

R 

400726 

R 


XCT DSCS 


o 

00116 

R 

200746 

R 


LAC ARTFLG 

/WAS ARTIFICIAL ENTRANCE EXPECTED? 


00117 

R 

740200 

A 


SZA 


o 

00120 

R 

600163 

R 


JMP ILL I NT 

/YES, BUT FLAG IS SET 

00121 

R 

620174 

R 


JMP<» EXIT 

/CONTINUE FROM LAST EXIT 


00122 

R 

400722 

R 

n 

APIOFF 

XCT DSSF 

/FLAG UP? 

o 

00123 

R 

600127 

R 


JMP APIOFI 

/NO 


00124 

R 

7600 0 0 

A 


CUA 



00126 

R 

040730 

R 


DAC ACSAVE 


o 

00126 

R 

600113 

R 


JMP RBSERl 



00127 

R 

200/46 

R 

APIOFI 

EAC ARTFL.G 

/ARTIFICIAL entry EXPECTED? 

o 

00130 

R 

765201 

A 


sna!clc;cll 



00131 

R 

600134 

R 


JMP NQFLAG 

/NO 


00132 

R 

200020 

R 


LAC SYSCQM 

/ready for artificial entry? 

o 

00133 

R 

750201 

A 


S2AJCLC 

/SYSCOM=0 MEANS READY 


00134 

R 

620076 

R 

nofuag 

JMPi> RBSERV 

/NOT THIS DEVICE 


00136 

R 

140/46 

R 


ARTFLG 

/ARTIFICIAL ENTRANCE ACHIEVED 

o 

00136 

R 

620174 

R 


JMP'^ exit 

/continue on 


, EJECT 


o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 
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RB0y 

SRC 

RB05 

1 SYSTEM PIAGNQSTIC 

00137 

R 

100225 

R 

ERROR'/ 

3MS 

PUTCHK 

00140 

R 

201763 

R 


LAC 

(7) 

00141 

R 

040022 

R 


DAC 

ERCOQE 

00142 

R 

400724 

R ■ 

ER7,1 

XCT 

DSRS 

00143 

R 

040023 

R 

E:R7,2 

DAC 

ERCOUE-fei 

00144 

R 

7777/5 

A 


LAW 

?! 

00145 

R 

040021 

R 


DAC 

ERWC 

00146 

R 

400724 

R 


XCT 

DSRS 

00147 

R 

040023 

R 


DAC 

ERCODE+1 

00150 

R 

700314 

A 


IQRS 

00151 

R 

040024 

R 


DAC 

ERCOPE+2 

00152 

R 

7777/5 

A 


LAW 

w 3 

00153 

R 

040020 

R 


DAC 

SYSCOM /RESTART FROM SCRATCH 

00154 

R 

040745 

R 


DAC 

ARTFLG 

00155 

R 

400725 

R 


XCT 

DSCS 

00156 

R 

1001/4 

R 


JMS 

EXIT 

00157 

R 

100225 

R 


JMS 

PUTCHK 

00160 

R 

201764 

R 


LAC 

(10) 

00161 

R 

040022 

R 


DAC 

ERCOPE 

00162 

R 

600142 

R 


JMP 

ER7,1' 

00163 

R 

100225 

R 

UUNT 

JMS 

PUTCHK 

00164 

R 

201765 

R 


LAC 

(ii) 

00165 

R 

040022 

R 


DAC 

ERCOUE 

00166 

R 

200/43 

R 


LAC 

STAT 

00167 

R 

600143 

R 


JMP 

ER7.2 






, EJECT ' 


PAGE 


RB09 SRC 


R809 system DIAGNQSTIQ 


00170 

R 

740040 

A 

MONEXT 

XX 


/NORHAL interrupt EXIT 

00171 

R 

140745 

R 


OHM 

ARTFLC 


001/Ji? 

R 

1001/4 

R 


JHS 

EXIT 


00173 

R 

620170 

R 

/ 

EXIT 

JMP<i 

MONEXT 


00174 

R 

740040 

A 

XX 


/AUL EXITS through MERE 

00175 

R 

200732 

R 


UAC 

SCSAVE 

/RESTORE STEP COUNTER 

30176 

R 

241766 

R 


XOR 

(77 

/CHA 

00177 

R 

341767 

R 


TAD 

(640402 


00200 

R 

501/70 

R 


AND 

(640477 

/create SHIFT 

002.01 

R 

040202 

R 


OAC 

» 


00202 

R 

740040 

A 


XX 


/EXECUTE created SHIFT 

00203 

R 

200733 

R 


LAC 

mqsave 


00204 

R 

652000 

A 


LMQ 



00205 

R 

200730 

R 


LAC 

AQSAVE 


00206 

R 

703344 

A 


OBR 



00207 

R 

400210 

R 


XCT 



00210 

R 

620076 

R 

/ 

JMP<^ 

RBSERV 

/RETURN TO MONITOR 

00211 

R 

740043 

A 

/ 

ARTXIT 

XX 


/LEAVE EITHOUT STARTING ANY 

30212 

R 

200020 

R 


LAC 

SYSCOM 

/NEXT ENTRANCE WITHOUT FLAG 

00213 

R 

740200 

A 


SZA 


/any errors in TABLE? 

00214 

R 

600220 

R 


JMP 


/YES. Change to 

30215 

R 

140021 

R 


DZM 

ERWC 


00216 

R 

777773 

A 


LAW 



00217 

R 

741000 

A 


SKP 



00220 

R 

777776 

A 


LAW 

rf 2 


00221 

R 

040020 

R 


PAC 

SYSCOH 


00222 

R 

040745 

R 


DAC 

ARTFL,G 


00223 

R 

1001/4 

R 


JMS 

EXIT 


0022 4 

R 

620211 

R 



ARTXIT 







.eject 




o 


O 
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o 

0022S 

R 

740040 

A 

PUTCHK 

XX 


/check if anything in output table 

O 


00226 

R 

200020 

R 


LAC SYSCOM 





00227 

R 

741200 

A 


SNA 


/OK? 



00230 

R 

600232 

R 


JMP PUTCKl 


/YES, TABLF empty 

o 


00231 

R 

100211 

R 

/ 

PUTCKl 

JMS ARTXIT 




o 

00232 

R 

7777/7 

A 

L AW '^1 



o 


00233 

R 

040020 

R 


DAC SYSCOM 





00234 


620225 

R 


JMP^t PUTCHK 




o 





/ 




o 






/OUTPUT 

AN RB09 BCD 

DISK ADDRESS INTO ERRTABLE 


o 





/ STARTING AT 1:BBTMP23 


o 





/SIDE 0 

OR 1 








/OQTAt 

OF TRACK (0s 

99 DECiI 







/octal 

OF SECTOR (0 

s / 0 

DEC, ) 

o 

o 





/ 





00235 

R 

740040 

A 

8CD0UT 

XX 




o . 

00236 

R 

200665 

R 


LAC BINBCP 



c 

00237 

R 

673602 

A 


EMQ!CLAG!LESS+2 



00240 

R 

060716 

R 


DACir BBTHP2 





00241 

R 

440716 

R 


IS'i BBTMP2 




o 

00242 

R 

641604 

A 


CLAC!LLS+4 



o 


00243 

R 

7440i0 

A 


RCL 


/mult, by 2 


o 

00244 

R 

040715 

R 


DAC 8BTHP1 




00245 

R 

742010 

A 


RTL 


/mult, by 5 (»2) 

o 


00246 

R 

340715 

R 


TAD BBTHPl ■ 





00247 

R 

040/15 

R 


DAC BBfMPi 



o 

o 

00250 

R 

641604 

A 


CLACILL.S + 4 




00251 

R 

340715 

R 

r 

TAD BBTMPl 





00252 

R 

0 60716 

R 


DAC» BBTMP2 



o 

o 

00253 

R 

440716 

R 


IS^ BBTMP2 




00254 

R 

641604 

A 


clacills+4 





00255 

R 

7440i0 

A 


RCL 


/SX»2 


o 

0PJ256 

R 

040715 

R 


DAC BBTMPl 



o 


0025 7 

R 

742010 

A 


' RTL 


/Sl*8 



00260 

R 

340715 

R 


TAD BBTMPl 


/Si»10 

o 

o 

00261 

R 

040/15 

R 


DAC BBTMPl 




00262 

R 

6^1604 

A 


CLACILUS+4 





00263 

R 

340715 

R 


TAD BBTMPl 



o 

o 

00264 

R 

060/16 

R 


OAC^ BBTMP2 



00265 

R 

620235 

R 


JMP^^ BCDOUT 










.EJECT 




o 









o 

o 









o 

o 









o 

o 









o 

o 









o 


o o 



o 


o 


o 








o 
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RB09 

SRC 

RB09 SYSTEM PIAGNOSTIC 



o 





/R809 HANDUER 



o 


00266 

R 

200752 

R 

write lac buffer 





00267 

R 

040/46 

R 

DAC POINTR 



o 

o 

00270 

R 

200^70 

R 

EAC PSKWC 




00271 

R 

744022 

A 

STLIRAR 





002.72 


744022 

A 

STEIRAR 



o 


00273 

R 

040744 

R 

DAC LOOP 

/CUT LOOP BY 4 FOR INCREASED 

SPEED 


00274 

R 

200740 

R 

LAC BLOCK 




O 

00275 

R 

240736 

R 

XOR HASH 



o 

00276 

R 

060746 

R 

WRITEl DAC* POINTR 




00277 

R 

440/46 

R 

isi POINTR 




o 

00300 

R 

341/71 

R 

TAD (1 



o 

00301 

R 

0 60/4 6 

R 

DAC^-> POINTR 




00302 

R 

440746 

R 

IS2 POINTR 





00303 

R 

341771 

R 

TAD a 




o 

00304 

R 

060/46 

R 

DAC<^ P'OINTR 



o 


00305 

R 

440746 

R 

ISI POINTR 




o 

00306 

R 

3417/1 

R 

TAD (1 



. , o 

00307 

R 

060746 

R 

OACi> PQINTR 




00310 

R 

440746 

R 

IS2 POINTR 





00311 

R 

341771 

R 

TAD (1 




o 

00312 

R 

440744 

R 

IS2 LOOP 



o 


00313 


600276 

R 

JMP WRITE! 





00314 

R 

200740 

R 

LAC BLOCK 



o 

o 

00315 

R 

100665 

R 

JMS BIN8CP 




00316 

R 

040665 

R 

DAC BINBCP 





0031/ 

R 

201772 

R 

LAC (7000 

/WRITE; INT, EN 


■ 

o 

00320 

R 

100!3^3 

R 

JMS DISK 



o 


00321 

R 

100537 

R 

JMS MOV8UE 

/MOVE THE buffer 




00322 

00323 

R 

R 

200740 

34073/ 

R 

R 

LAC BLOCK 
TAD PRIME 



o 






iDEC 





00324 

R 

341/73 

R 

tad ("*16000 

/NO GREATER THAN !5999 



0 

00325 

R 

741100 

A 

SPA 



o 


00326 

R 

341774 

R 

tad (16000 









,OCT 



o 

o 

00327 

R 

040740 

R 

DAC BLOCK 




00330 

R 

540/51 

R 

SAD START 





00331 

R 

741000 

A 

SKP 

/pone with writing disk, now 

READ 

o 

o 

00332 

R 

600266 

R 

JMP WRITE 
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o 
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o 
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o 
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RB09 

SRC 

RB09 SYSTEM DIAGNOSTIC 






/R009 

READ ROUTINE 



00333 

R 

200003 

R 

READ 

EAC CMPMAX 



00334 

R 

740001 

A 


CMA 

/number of rereads 

ON COMPARE ERRORS 

00333 

R 

040742 

R 


DAC ROFTRY 



00336 

R 

200740 

R 

READ2 

UAC BLOCK 



0033 7 

R 

100663 

R 


JMS BINBCU 



00340 

R 

040663 

R 


DAC BINBCD 



00341 

,R 

201773 

R 


LAC (6000 ' 

/read, INTi en 


00342 

R 

100333 

R 


UMS dTsk' 



00343 

R 

200/32 

R 


LAC BUFFER 



00344 

R 

040746 

R 


DAC POINTR 



00343 

R 

200370 

R 


LAC DSKWq 



00346 

R 

744022 

A 


STL5RAR 



00347 

R 

744022 

A 


STLIRAR 



00330 

R 

0 407 4 4 

R 


DAC LOOP 



00331 

R 

200002 

R 


LAC BLKCMP 

/NUMBER OF COMPARE 

ERRORS 

00332 

R 

740001 

A 


CMA 

/per BUOCK which are reported 

00333 

R 

341771 

R 


TAD U 



00334 

R 

040731 

R 


DAC REPLDP 



00333 

R 

200740 

R 


LAC BLOCK 



00 33 6 

R 

240736 

R 


XOR hash 



0033 7 

R 

360746 

R 

READ3 

SAD{^ POINTR 



00360 

R 

741000 

A 


SKP 



00361 


100471 

R 


JMS RPEROR 



00362 

R 

440746 

R 


ISZ POINTR 



00363 

R 

341771 

R 


TAD (1 ■ 



00364 

R 

360746 

R 


SAD<^ POINTR 



00363 

R 

741000 

A 


SKP 



0036 6 

R 

100471 

R 


JMS RDEROH 



00367 

R 

440746 

R 


ISZ POINTR 



0037i3 

R 

341771 

R 


tad (i 



00371. 

R 

360746 

R 


SAD<> POINTR 



00372 

R 

741000 

A 


SKP 



00373 

R 

i004n 

R 


JMS RPEROR 



00374 

R 

440746 

R 


ISZ POINTR 



00375 

R 

341771 

R 


TAD (1 



00376 

R 

360746 

R 


SAD^v POINTR 



00377 

R 

741000 

A 


SKP 



00400 

R 

100471 

R 


JMS RPEROR 



00401 

R 

440746 

R 


ISZ POINTR 



00402 

R 

341771 

R 


TAD (1 



00403 

R 

440744 

R 


ISZ LOOP 



00404 

R 

600337 

R 


JMP REAU3 



00403 

R 

100337 

R 

READl 

JMS MOVBUF 

/MOVE THE buffer 


00406 

R 

200740 

R 


LAC BLOCK' 



00407 

R 

340737 

R - 


TAD PRIME 








,OEC 



00410 

R 

3417/3 

R 


TAD (^16000 



00411 

R 

741100 

A 


SPA 



00412 

R 

341774 

R 


TAD (16000 








,0CT ■■ 



00413 

R 

040740 

R 


DAC BLOCK 



00414 

R 

540731 

R 


SAD START 

/DONE READING? 



PAGE 
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004X5 

R 

741000 

A 


SKP 


004X6 

R 

600333 

R 


JMP 

READ 

00417 

R 

200736 

R 


LAC 

HASH 

00420 

R 

301776 

R 


ADD 

(677/73 

00421 

R 

4 0 7 3 6 

R 


DAC 

HASH 

00422 

R 

200000 

R 


LAC 

UODSW 

004 23 

R 

501753 

R 


AND 

(100000 

00424 

R 

740200 

A 


S7A 


00425 

R 

600460 

R 


JMP 

DONEl 

00426 

R 

200751 

R 


LAC 

START 

00427 

R 

341771 

R 


tad 

(i 






,DEC 

00430 

R 

3417/3 

R 


TAD 

( ^16000 

00431 

R 

741100 

A 


SPA 


00432 

R 

3417/4 

R 


TAD 

(16000 

00433 

R 

040751 

R 


, OCT 
DAC 

START 

00434 

R 

040/40 

R 


DAC 

BLQCK 

00435 

R 

200000 

R 


LAC 

UOPSW 

00436 

R 

5Pn777 

R 


AND 

(040000 

00437 

R 

740200 

A 


SHA 


00440 

R 

600460 

R 


JMP 

DONEl 

0044X 

R 

200570 

R 


LAC 

DSKWC 

00442 

R 

744010 

A 


ROL 


00443 

R 

542000 

R 


SAD 

( ^2000 

0 04 4 4 

R 

600462 

R 


JMP 

DONE 

00443 

R 

040570 

R 


DAC 

DSKWC 

00446 

R 

542001 

R 


SAD 

(-5200 

00447 

R 

202002. 

R 


LAC 


00450 

R 

542003 

R 


SAP 

( Tn 4 0 0 

00451 

R 

■202004 

R 


LAC 

(134 ' 

00452 

R 

542003 

R 


SAD 

(^1000 

00453 

R 

202006 

R 


LAC 

( 150 

00434 

R 

04073/ 

R 


OAC 

PRIME 

00435 

R 

201754 

R 


LAC 

(BUFF 

00456 

R 

.040/52 

R 


DAC 

BUFFER 

00457 

R 

600266 

R 

i 

JMP 

WRITE 

00460 

R 

440750 

R 

/ 

PONEX 

ISH 

runnhb 

00461 

R 

600266 

R 


JMP 

WRITE 

00462 

R 

100225 

R 

PONE 

JMS 

PUTCHK 

00463 

R 

140021 

R 


OHM 

ERWC 

00464 

R 

140022 

R 


OHM 

ERCOUE 

00465 

R 

777774 

A 


LAW 

r 4 

00466 

R 

0 4 00 2 0 

R 


DAC' 

SYSCOM 

00467 

R 

100170 

R 


JMS 

MONEXT 

00470 

R 

740040 

A 


HIT 







, EJECT 


/YES 

/calculate new hash for next pass 
/maintenance mode? 

/YES 

/JNcREMENT first block 
/RAP around? 

/NO 

/stay in WORO/BLOCK MODE? 

/YESi 6 PASSES PER COMPLETE PASS 

/calculate new word count 
/MULT, BY 2 
/RAp around? 

/calculate new APPRQRIATE PRIME 
/track by li SECTOR BY 6 

/TRACK BY I, SECTOR BY 12 

/track by 1, SECTOR BY 24 

/RESET BUFFER To START OE LARGE BUFFER 

/FINISHED? 

/YES 

/SHOULD NOT RETURN HERE 


PACK 12 


RB09 

SRP 

RR0? 

1 SYSTEM DIAGNQSTIC 


00^71 

H 

740040 

A 

RDEROR 

XX 


/COHPARE error 


00472 

R 

040747 

R 

/ 

RDPERR 

DAC 




00473 

R 

100223 

R 

JHS 

PUTCHK 



004 7 4 

R 

202007 

R 


LAC 

(4? 



00473 

R 

0^0022 

R 


DAC 

ERCOOE 



00476 

R 

777770 

A 


EAW 

nl0 



00477 

R 

040021 

R 


DAC 

ERWC 



00300 

R 

202010 

R 


LAC 

(ERCODE+l 



00D01 

R 

040716 

R 


DAC 

B0TMP2 

/PUiNTER FOR BCOOUT 


00302 

R 

100233 

R 


JMS 

BCtioUT 



00303 

R 

200746 

R 


LAC 

PQINTR 



00304 

R 

040026 

R 


DAC 

ERCgUE'^4 



00303 

R 

200732 

R 


LAC 

BUFFER 



. 00306 

R 

740001 

A 


CMA 




00307 

R 

341771 

R 


TAD 

a 



00310 

R 

340746 

R 


TAD 

PDINTR 



00511 

R 

040027 

R 


DAC 

ERCODE+3 



00312 

R 

220746 

R 


LAC« 

' POINTR 



00313 

R 

040030 

R 


DAC 

ERCQDE+6 



00314 

R 

200747 

R 


LAC 

ROCHAR 



00313 

R 

040031 

R 


DAC 

ERCOPEt/ 



00316 

R 

440/31 

R 

f 

IS2 

REPLOP 

/DONE REPORTING ERRORS. IN TH 

IS BEOCK? 

00317 

R 

600333 

R 


JMP 

RPREP 



00320 

R 

100223 

R 


JMS 

PUTCHK 

/YES 


00321 

R 

777777 

A 


LAW 

w i 



00322 

R 

040021 

R 


DAC 

ERWC 



00323 

R 

2020U 

R 


LAC 

(3) 



00324 

R 

040022 

R 

i 

DAC 

ERCQDE 



00323 

R 

440742 

R 

f 

I S2 

RDFTRY 

/reread? 


00326 

R 

600336 

R 


JMP 

READ2" 

/YES 


00327 

R 

10022.3 

R 

RDFERl 

JMS 

PUTCHK 

/NO 


00330 

R 

777777 

A 


LAW 

wl 



00331 

R 

040021 

R 


DAC 

ERWC 



00332 

R 

202012 

R 


LAC 

(6) 



00333 

R 

040022 

R 


DAC 

ERCOOE 



00534 

R 

600403 

R 

/ 

JMP 

READ! ' 



00333 

R 

200747 

R 

/ 

ROREP 

LAC 

rdchar 

/check more 


00336 

R 

620471 

R 


JMP^J 

■ RDERUR 








, EJECT 





u 


o 


o 


o 



PAGE 


RB0V 

SRQ 

RB09 

SYSTEM UIAGNUSTIG 


o 





/ROUTINE 

/ 

MOVBUP 

TO 

MOVE buffer 

WJTHiN LARGE available BUFRER 

o 


00 537 

R 

740040 

A 

XX 



o 

o 

005^0 

R 

20055/0 

R 


UAC 

DSKWC 

/calculate needed BUEEER size 


00541 

R 

740001 

A 


CM A 




00542 

R 

34l7h 

R 


TAD 

(1 



Q 

00543 

R 

340/52 

R 


TAD 

BUFFER 

/IS THERE ROOM AVAILABLE TO MOVE? 

c 


00544 

R 

541753 

R 


SAD 

BUFEND 




0054 5 

R 

600550 

R 


0MP 

MOVBFl 

/NO, RESET IT TO START 

o 

O 

00546 

R 

440752 

R 


ISH 

BUFFER 

/YES. INCREMENT IT 


00547 

R 

620537 

R 


JMP^ 

MOVBUF 




00550 

R 

201/54 

R 

MOVBFl 

UAC 

(BUFF ' 


o 

0 

00551 

R 

040752 

R 


DAC 

BUFFER 

/RESET IT 

o 

00552. 

R 

620537 

R 

/ 

/ 

/ 

JMP^ 

MOVBUF 


o 


00553 

R 

740040 

A 

0I$K 

XX 


/RB09 start up ROUTINE 

o 

o 

00554 

R 

040735 

R 


DAC 

fnsave 



00555 

R 

200001 

R 


UC 

HRDMAX 

/number of retries on hardware errors 



00556 

R 

740001 

A 


CMA 




o 

00557 

R 

040/n 

R 


DAC 

ERRCNT 


o 


00560 

R 

750004 

A 

DISKRP 

US 


/hold switch set 



00561 

R 

500010 

R 


AND 

SWITCH 


o 


00562 

R 

741200 

A 


SNA 




00563 

R 

600566 

R 


JMP 

,+3 

/no 



00564 

R 

100211 

R 


JMS 

ARTxI T 

/YES 


o 

00565 

R 

600560 

R 


JMP 

DISKRP 


o 


00566 

R 

200752 

R 


LAC 

BUFFER 




00567 

R 

400726 

R 


XCT 

DSLM 



o 

00570 

R 

777700 

A 

PSKWC 

LAW 

«100 


o 


00571 

R 

400723 

R 


XCT 

DSL W 




00572 

R 

200665 

R 


LAC 

BINBCD 



o 

00573 

R 

400721 

R 


XCT 

DSLP 


o 


00574 

R 

200735 

R 


LAC 

fnUve 




005755 

R 

400/2/ 

R 


XCT 

DSLS 



o 

0057 6 

R 

1001/0 

R 


OHS 

moNext 

/GO AWAY UNTIL INTERRUPT 

o 






/RETURN 

HERE 

QN interrupt 



00577 

R 

200743 

R 


LAC 

STAT 


o 

o 

00600 

R 

740100 

A 


SMA 


/ERROR? 


00601 

R 

620553 

R 


jMPtt 

bisk 

/NO 



o 


o 


o 


o 


o 

o 


eEJECT 


o 

o 

o 

o 

o 

o 
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c 


R 

100225 

R 


JMS PUTCHK 

/SYSCOM -1 NOW? 

O 


00603 

R 

200665 

R 


lac binbcd 

/NO, CHECK IP LEGAL, BCD FORMAT ADDRESS 



00604 

R 

633601 

A 


lhq;clag!ul,s+i 

/SHOULD BE 2ER0 

o 

o 

00603 

R 

744200 

A 


SHAICLl, 



00606 

R 

600633 

R 


JMP DISK2 




00607 

R 

660605 

A 


USS + 5 


o 

o 

00610 

R 

302013 

R 


AMD (17 



00611 

R 

342014 

R 


TAD (’’12 

/9 DEC, OR LESS 


o 

0 0 612 

R 

740100 

A 


SMA 


o 

00613 

R 

600633 

R 


JMP 0ISK2 



00614 

R 

640604 

A 


US + 4 




00613 

R 

502013 

R 


AND (1/ 


o 

o 

00616 

R 

342014 

R 


TAD (-?12 



00617 

R 

744100 

A 


SMA JCLL 




00620 

R 

600633 

R 


JMP 0ISK2 



o 

00621 

R 

640604 

A 


LLS+4' 


o 


00622 

R 

502013 

R 


AMP (17 




00623 

R 

342013 

R 


tad ( "^ i 0 

n OR LESS 

o 

o 

00624 

R 

744100 

A 


SMAICLI 



00625 

R 

600633 

R 


JMP D1SK2 



o 

00626 

R 

640604 

A 


US + 4' 



00627 

R 

502013 

R 


AMO (17 


c 


00630 

R 

342014 

R 


TAD (-^12 




00631 

R 

743100 

A 


SPAJCLl 



o 

00632 

R 

600644 

R 


JMP DISK3 

/GOOD ADDRESS 

o 


00633 

R 

777775 

A 

DISKS 

L AW 3 



o 

00634 

R 

040021 

R 


OAC ERWC 


o 

00633 

R 

202016 

R 


LAC (2J 



00636 

R 

040022 

R 


DAC ERCODE 




00637 

R 

200743 

R 


LAC StAT 


o 

o 

00640 

R 

040023 

R 


DAC ERCOOE^l 



00641 

R 

200663 

R 


LAC bSmbcd 




00642 

R 

040024 

R 


DAC ERCODEi.2 



0 

00643 

R 

600653 

R 

/ 

JMP DISkU 


o 


0 06 4 4 

R 

201771 

R 

/ 

0I3'K3 

LAC (1? 


o 

o 

006 4 3 

R 

040022 

R 


DAC ERCODE 



00546 

R 

777773 

A 


LAW ^3" 



o 

00647 

R 

040021 

R 


PAC ERWC 


o 

00630 

R 

200743 

R 


LAC STAT 



00631 

R 

040023 

R 


OAC ERCODE+1 




00652 

R 

20201/ 

R 


LAC (ERCQDE+2 


o 

o 

00633 

R 

040716 

R 


DAC BBTMP2 


00654 

R 

100235 


/ 

0ISK4 

JMS BCPOUt 



0 

00655 

R 

440741 

R 

ISH ERRCNT 

/retry? 

o 

00636 

R 

600560 

R 


JHP DISKRP 

/YES 



00657 

R 

100225 

R 


JMS PUTCHK 



0 

00660 

R 

202020 

R 


LAC (3) 

/retried as many times 

o 


00661 

R 

040022 

R 


DAC ERCqpE 

/AS SPECIFIED by HROMAX 



00662 

R 

7777/7 

A 


LAW ’’I 



0 

00663 

R 

040021 

R 


DAC ERWg 


0 


00664 

R 

620553 

R 


JMP» DISK 




O O 


o 


o 



PAGE 




RB09 

SRG 

RB09 

SYSTEM QIAGiMgSTig 






/TITIE HB09 

BINARY TO BCD CONVERTER 

00665 

R 

740040 

A 

BINBCP 

XX 


00666 

R 

744000 

A 


cll 


00667 

R 

653323 

A 


10 IV 


00670 

R 

000012 

A 

il2 

12 


00671 

R 

040715 

R 


DAC BBTMPl 


0067^ 

R 

641323 

A 


ClACjDiv 


00673 

R 

000010 

A 


10' 


00674 

R 

040716 

R 


DAC BBTMP2 


00675 

R 

641323 

A 


CLACJPiVJ ' 

12 

00 6 7 6 

R 

000012 

A 




7j^677 

R 

040717 

R 


DAC BBTMP3 


00700 

R 

641002 

A 


UACQ 


00701 

R 

342014 

R 


TAD (^12 


00702 

R 

740100 

A 


SMA 


00703 

R 

342012 

R 


TAD (6 


00704 

R 

340670 

R 


TAP fl2 


00705 

R 

660704 

A 


ALSS+4 


00706 


300717 

R 


ADD BBTMP3 


00707 

R 

660704 

A 


ALSS+4 


00710 

R 

300716 

R 


ADD BBTMP2 


00711 

R 

660704 

A 


AlSS+4 


00712 

R 

3007i5 

R 


ADD BBTMPl 


00713 

R 

300720 

R 


ADD MAITSC 

/<& UNLESS RUNNING MAINT, TgST 

00714 

n 

620665 

R 

/ 

BBTMPl 

JMP<> BIRBCP 


00715 

R 

000000 

A 

0 


00716 

R 

000000 

A 

BBTMP2 

0 


00717 

R 

000000 

A 

BBTMP3 

/ 

MAJTSC 

0 


00720 

R 

000000 

A 

0 

,EDECT 

/200 IF running HAINTENANCE TEST 





(D 

PAGE 16 


RB09 

SRG 

RB09 

' SYSTE 

O 






/TITLE 


00721 

R 

707104 

A 

PSLD 

707104 


00722 

R 

707121 

A 

PSSF 

707121 

O 

00723 

R 

707124 

A 

ost,w 

707124 


00724 

R 

707132 

A 

DSRS 

707132 

o 

00725 

R 

707141 

A 

DSCS 

707141 

00726 

R 

707142 

A 

PSEM 

707142 


00727 

R 

707144 

A 

PSPS 

/ 

707144 

o 





/titll 


00730 

R 

000000 

A 

ACSAVE 

0 


00731 

R 

000000 

A 

REPLOP 

0 

o 

00732 

R 

000000 

A 

SCSAVE 

0 


00733 

R 

000000 

A 

HQSAVp 

0 

o 

00734 

R 

000000 

A 

SVEXiT 

0 

00735 

R 

000000 

-A 

fnsave 

0 


00 736 

R 

000000 

A 

HASH 

0 


00737 

R 

000127 

A 

PRIME 

127 

o 

00740 

R 

000000 

A 

BLOCK 

0 


00741 

R 

000000 

A 

ERRCNT 

0 

o 

00742 

R 

000000 

A 

rdftry 

0 

00743 

R 

000000 

A 

STAT 

0 


00744 

R 

000000 

A 

LOOP 

0 

o 

00745 

R 

000000 

A 

ARTFLG 

0 

00746 

R 

000000 

A 

POINTR 

0 

o 

00 74 7 
00750 

R 

R 

000000 

000000 

A 

A 

ROCHAR 

RUNNMB 

0 

0 


00751 

R 

000000 

A 

start 

0 


00752 

R 

000753 

R 

buffer 

BUFF 

o 

00753 

R 


A 

BUFF 

, BLOCK 


01753 

R 

001753 

R 

BUFEND 

BUFENP 


PJAGNOSTIC 

KBH9 JOT'S 

/LOAD disk address 
/SKIP ON FLAG 
/LOAD WORD OOUNT 
/READ STATUS 
/CLEAR STATUS 
/LOAD CORE ADDRESS 
/LOAD STATUS 

variables 

/CONTENTS OF AC IF APJi 0 IF PI 

/STEP COUNTER 
/MO 

/SAVE EXIT WHEN HOLDING ON SWITCH 
/FUnGTIONi READ OR WRITE 

/INCREMENT TRACK BY IiSEGMENT BY 7 

/TRACK ADDRESS 

/NUMBER OF RB09 RETRIES 

/RB09 STATUS WORD 

/0 IF EXPECTING FLAG ENTRY 

/non"Hero if expecting artificial entry 

/EXPECTED CHARACTER ON COMPARE ERROR 

/PASS Counter 

/FIRST BLOCK OP TEST 

/FIRST WORD OF MOVING BUFFER 

1000 


o 


.EJECT 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 


o 

o 

o 


u 


o 



RB09 SYSTEM DIAGNUSTiq 


1/ 


RB0 9 

SRC 

017i?4 

R 

000753 

% 

R 


Q'l7'p^ 

R 

100000 

A 


0 1 7 i:? 6 

R 

000120 

A 


017^7 

R 

(J 0 0 2 0 0 

A 


01760 

R 

000127 

A 


01761 

R 

0002q6 

R 

^E 

01762 

R 

400000 

A 

«E 

01763 

R 

000007 

A 

*E 

01764 

R 

000010 

A 

^E 

01763 

R 

000011 

A 


017 6 6 

R 

000077 

A 

^'E 

01767 

R 

640402 

A 

^E 

01770 

R 

640477 

A 


01771 

R 

000001 

A 

^E 

01772 

R 

007000 

A 

^E 

01773 

R 

740600 

A 


01774 

R 

037200 

A 

^E 

01773 

R 

006000 

A 

^E 

01776 


677773 

A 

»E 

01777 

R 

040000 

A 

^E 

02000 

R 

776000 

A 


02001 

R 

777600 

A 


02002 

R 

000136 

A 

^E 

02003 

R 

777400 

A 


02004 

R 

000X34 

A 

^E 

02005 

R 

777000 

A 

^E 

02006 

R 

000130 

A 


02007 

R 

080004 

A 

^E 

02010 

R 

080023 

R 


02011 

R 

000003 

A 


02012 

R 

000006 

A 


02013 

R 

000017 

A 

^E 

^E 

02014 

R 

777766 

A 

02015 

R 

777770 

A 

^E 

02016 

R 

800002 

A 

<>E 

02017 

R 

000024 

R 

02020 

R 

000003 

A 




000000 

R 




=02023 


a,TORG 


,END yoosw 
NO ERROR EjNES 
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RB09 

SRG 

RB09 

ACSAVE 

00730 

R 

APIOFF 

00122 

ARTXIT 

00211 


BBTMPl 

00715 

BCDOUT 

00238 

R 

BINBOD 

00665 

BUFEND 

017B3 

R 

BUFF 

00753 

CMPMAX 

00003 

R 

DBK 

703304 

DISKRP 

00560 

R 

DISKS 

00633 

DONE 

00462 

R 

PONEl 

00460 

PSED 

00721 

R 

DSLM 

00726 

PSRS 

00724 

R 

DSSF 

00722 

ERCODE 

00022 

R 

ERRCNT 

007A1 

ER7,1 

00142 

R 

ER7,2 

00143 

HASH 

00736 

R 

HRPMAX 

00001 

LOOP 

00744 


MAITSC 

00720 

MOVBUF 

00537 

R 

MQSAVE 

00733 

PRIME 

00737 

R 

PUTCHK 

00225 

RBINTi 

00057 

R 

RBINT2 

00064 

RPCHAR 

00747 

R 

RPEROR 

004h 

RPETRY 

00742 

R 

RDREP 

00535 

REAP2 

00336 

R 

READ3 

00357 

runnmb 

00750 

R 

SCSAVE 

00732 

STAT 

00743 

R 

SVEXIT 

00734 

uopsw 

00000 

R 

WRITE 

00266 

» 1 2 

00670 

R 




SYSTW OIAGNOSTJC 


R 

APIPFI 

00127 

R 

artfeg 

00745 

R 

R 

BBTMP2 

00716 

R 

BBTMP3 

00717 

R 

R 

BEKCMP 

00002 

R 

BLOCK 

00740 

R 

R 

buffer 

00752 

R 

CEAC 

641000 

A 

A 

UBR” 

703344 

A 

DISK 

00553 

R 

R 

PISK3 

*00644 

R 

0?SK4 

00655 

R 

R 

DSCS 

00725 

R 

PSKWC 

00570 

R 

R 

OSES 

,00727 

R 

DSLW 

00723 

R 

R 

EBA 

707764 

A 

eeh 

707702 

A 

R 

ERR0R7 

'001^7 

R 

ERWC 

00021 

R 

R 

EXIT 

00174 

R 

fnsave 

00735 

R 

R 

iLEINT 

00163 

R 

ISA 

705504 

A 

R 

MONEXT 

00170 

R 

H0V8F1 

00550 

R 

R 

NOFEAG 

00134 

R 

pointr 

00746 

R 

R 

PUTOKl 

00232 

R 

rbinit 

00032 

R 

R 

rbserv 

00076 

R 

RBSERI 

0.0113 

R 

R 

roferr 

00473 

R 

RDPERl 

00527 

R 

R 

REAP 

00333 

R 

readi 

00405 

R 

R 

REPLOP 

00731 

R 

RPL 

705512 

A 

R 

SPJ 

705501 

A 

START 

00751 

R 

R 

SWITCH 

*00010 

R 

SYSCOM 

00020 

R 

R 

WRITEl 

00276 

R 

,10 

00673 

R 


RO0y 


SRC 


RB09 SYSTEM PJAGNOSTIC 


UODSW 

00000 

R 

hrdmax 

00001 

R 

blkomp 

00002 

R 

CMPHAX 

00003 

R 

SWITCH 

00010 

R 

syscom 

00020 

R 

ERWO 

00021 

R 

ERCODE 

00022 

R 

RBINIT 

00032 

R 

RBINTI 

00057 

R 

RBJNT2 

00064 

R 

RBSERV 

00076 

R 

rbseri 

00U3 

R 

API OFT 

00122 

R 

APIOFl 

00127 

R 

NOFLAG 

00134 

R 

ERRQR7 

00137 

R 

ER7|1 

00142 

R 

ER7,2 

00143 

R 

ILUINT 

00163 

R 

MQNEXT 

00170 

R 

EXIT 

00174 

R 

AHTXIT 

00211 

R 

PUTCHK 

00225 

R 

PUTCKl 

00232 

R 

bcdout 

00235 

R 

WRITE 

00266 

R 

WRITEl 

00276 

R 

READ 

00333 

R 

READ2 

00336 

R 

REA03 

00357 

R 

readi 

00405 

R 

PONEl 

00460 

R 

DONE 

00462 

R 

RQEROR 

00471 

R 

RUFERR 

00473 

R 

RDFERl 

00527 

R 

RPREP 

00535 

R 

MOVBUF 

00537 

R 

MOVBF3. 

00550 

R 

DISK 

00553 

R 

DISKRP 

00560 

R 

dskwc 

00570 

R 

DISK? 

00633 

R 

DISKS 

00644 

R 

DISK4 

00655 

R 

BINBCD 

00665 

R 

■ IE 

00670 

R 

1 ID 

00673 

R 

BBTMPl 

00715 

R 

BBTMP2 

00716 

R 

BBTMP3 

00717 

R 

MAITSC 

00720 

R 

DSLD 

00721 

R 

DSSF 

00722 

R 

DSLW 

00723 

R 

OSRS 

00724 

R 

dscs 

00725 

f'^ 

DSEM 

00726 

R 

DSLS 

00727 

R 

ACSAVE 

00730 

R 

REPEOP 

00731 

R 

scsave 

00732 

R 

mqsave 

00733 

R 

SVEXIT 

00734 

R 

FNSAVE 

00735 

R 

HASH 

00736 

R 

PRIME 

00737 

R 

beock 

00740 

R 

ERRCNT 

00741 

R 

RDFTRY 

00742 

R 

STAT 

00743 

R 

UOOP 

00744 

R 

ARTFLG 

00745 


POINTR 

00746 

R 

ruchar 

00747 

R 

runnmb 

00750 

R 

STARf 

00751 

R 

BUFFER 

00752 

R 

BUFF ' 

00753 

R 

bufend 

01753 

R 

CEAC 

641000 

A 

DBK 

703304 

A 

dbr 

703344 

A 

SPI 

705501 

A 

ISA 

705504 

A 

RPE 

705512 

A 

EEM 

707702 

A 

EBA 

707764 

A 












